home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
LOGIC Apps
/
Logic-APPLE_II_APPS.iso
/
mac
/
LOGIC Apple II 5.25" Library - ProDOS
/
PRO023.dsk
/
Q4.bas
< prev
next >
Wrap
BASIC Source File
|
2012-02-16
|
1KB
|
37 lines
10 HOME : TEXT
20 PRINT : PRINT
50 INVERSE
58 PRINT " "
60 PRINT " OTAMOT "
62 PRINT " "
70 PRINT : PRINT : PRINT
80 NORMAL
90 PRINT "Spell the word you will see when the above is put in front of the mirror. Then press RETURN."
100 PRINT : PRINT : PRINT
110 PRINT : PRINT : PRINT
130 INPUT ANSWER$
140 IF ANSWER$ = "TOMATO" OR ANSWER$ = "tomato" THEN GOSUB 200
150 GOSUB 300
190 END
200 HOME : TEXT
202 PRINT : PRINT
204 PRINT "That's right!! Let's go on to the next question."
206 PRINT : PRINT : PRINT : PRINT
208 PRINT : PRINT : PRINT : PRINT
210 FOR I = 0 TO 600
212 J = 1
214 NEXT I
216 PRINT CHR$(4);"run q5"
218 RETURN
300 HOME : TEXT
302 PRINT : PRINT
304 PRINT "Press <P> to try again or press any other key to get the solution."
306 PRINT : PRINT : PRINT : PRINT
308 PRINT : PRINT : PRINT : PRINT
310 GET KY$
312 IF KY$ = "p" OR KY$ = "P" THEN GOTO 10
314 PRINT "Answer = TOMATO"
315 PRINT
316 PRINT : PRINT "Press any key to move on."
318 GET KY$
320 PRINT CHR$(4);"run q5"